home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 June / macformat-038.iso / Demos / History of the World / DATA / contentM.dir / 00063.ls < prev    next >
Encoding:
Text File  |  1995-04-25  |  668 b   |  32 lines
  1. on on startMovie
  2.   global rwObj, gMaxColors, deskTopPattern, black
  3.   set x to the colorDepth
  4.   if x >= 8 then
  5.     set gMaxColors to 0
  6.   end if
  7.   if x = 4 then
  8.     set gMaxColors to 15
  9.   end if
  10.   if x = 2 then
  11.     set gMaxColors to 3
  12.   end if
  13.   if x = 1 then
  14.     set gMaxColors to 0
  15.   end if
  16.   if gMaxColors = 0 then
  17.     put string(100) into field "colorIndex"
  18.   else
  19.     put string(gMaxColors / 2) into field "colorIndex"
  20.   end if
  21.   if factory("RearWindow") = 0 then
  22.     openXLib("RearWindow.XObj")
  23.   end if
  24.   initGlobals()
  25.   if objectp(rwObj) then
  26.     rwObj(mdispose)
  27.   end if
  28.   makeObjIfNeeded()
  29.   when mouseDown then mouseHandler
  30.   when keyDown then keyHandler
  31. end
  32.